home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  85 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="september/october 1988 rerun"
  48. 490 print"[147]";
  49. 500 print tp$;:gosub 590
  50. 510 for i=1 to 2:print md$;:gosub 590:next
  51. 520 print"[145]";hd$;:gosub 590
  52. 530 print:print"[145]";
  53. 540 for i=1 to 1:print md$;:gosub 590:next
  54. 550 print bt$;:gosub 590
  55. 560 for i=1 to 19:print pr$;:gosub 590:next
  56. 570 poke 53265,27
  57. 580 return
  58. 590 rem sound routine here
  59. 600 poke v+23,15:poke v+4,9:poke v+5,0:poke v,1:poke v+3,32:poke v+3,33
  60. 610 return
  61. 1000 rem file list
  62. 1010 rem first entry is the number of programs on this disk
  63. 1020 rem followed by each filename
  64. 1030 rem second data item is run or sysxxxxx
  65. 1040 rem run if file is basic and sys xxxxx if ml
  66. 1050 data 18
  67. 1060 data try to remember,run
  68. 1070 data page lister,run
  69. 1080 data cards 31,run
  70. 1090 data +bandit ball ml,sys32768
  71. 1100 data vacation lists,run
  72. 1110 data kernal prg#1,run
  73. 1120 data kernal prg#2,run
  74. 1130 data kernal prg#3,run
  75. 1140 data question box,run
  76. 1150 data easy banners,run
  77. 1160 data scared silly,run
  78. 1170 data z-scores,run
  79. 1180 data z-scores prg#2,run
  80. 1190 data joystick pointer,run
  81. 1200 data joystick prg#2,run
  82. 1210 data flipper 34,run
  83. 1220 data flipper prg#2,run
  84. 1230 data "",run
  85.